յԪ񡢿ССѡ򡢿չ

Sub Test()
    MsgBox Application.WorksheetFunction.CountA(ActiveCell), , "0ǰԪΪգ"
    
    MsgBox Application.WorksheetFunction.CountA(Rows(2)), , "0ǰ2Ϊգ"
    MsgBox Application.WorksheetFunction.CountA(ActiveCell.EntireRow), , "0ǰǰΪգ"
    
    MsgBox Application.WorksheetFunction.CountA(Columns(2)), , "0ǰ2Ϊգ"
    MsgBox Application.WorksheetFunction.CountA(ActiveCell.EntireColumn), , "0ǰǰΪգ"
    
    
    MsgBox Application.WorksheetFunction.CountA(Selection), , "0ǰѡеĵԪΪգ"
    
    MsgBox Application.WorksheetFunction.CountA(Cells), , "0ǰΪգ"
End Sub